home *** CD-ROM | disk | FTP | other *** search
/ Perl Multimedia Cyber Classroom / PERL Multimedia Cyber Classroom (Prentice Hall)(1998).ISO / perlbyex / code.jar / 13ex001.jar / code / ch13 / 13ex001 / 13ex001.pl next >
Perl Script  |  1998-04-01  |  247b  |  10 lines
  1. #!/bin/perl  
  2. package main; 
  3. #  the my function and privacy 
  4. $name = "Susan" ; 
  5. my $birthyear = 1942; # $birthday is private to this package 
  6.  
  7. package nosy; 
  8. print "Hello $main::name.\n" ; 
  9. print "You were born in $main::birthyear?\n" ; 
  10.